inherited FCadUsuarioEmpresa: TFCadUsuarioEmpresa
  Left = 986
  Top = 377
  Caption = 'Cadastro de acesso as empresas'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel [4]
    Left = 26
    Top = 57
    Width = 65
    Height = 13
    Caption = 'USUCODIGO'
    FocusControl = dbedt1
  end
  object lbl2: TLabel [5]
    Left = 26
    Top = 97
    Width = 65
    Height = 13
    Caption = 'EMPCODIGO'
    FocusControl = dbedt2
  end
  object dbedt1: TDBEdit [9]
    Left = 26
    Top = 71
    Width = 69
    Height = 21
    Color = clGray
    DataField = 'USUCODIGO'
    DataSource = ds1
    ReadOnly = True
    TabOrder = 3
  end
  object dbedt2: TDBEdit [10]
    Left = 26
    Top = 111
    Width = 68
    Height = 21
    Color = clSkyBlue
    DataField = 'EMPCODIGO'
    DataSource = ds1
    TabOrder = 4
    OnDblClick = dbedt2DblClick
    OnExit = dbedt2Exit
  end
  object EdNomeEmpresa: TEdit [11]
    Left = 94
    Top = 111
    Width = 421
    Height = 21
    Color = clGray
    TabOrder = 5
  end
  object ds1: TDataSource [12]
    DataSet = qFilha
    Left = 177
    Top = 7
  end
  inherited qFilha: TQuery
    AfterEdit = qFilhaAfterEdit
    SQL.Strings = (
      'SELECT * FROM USUARIOS_EMPRESAS WHERE 1=-1')
    Left = 148
    Top = 6
    object qFilhaUSUCODIGO: TIntegerField
      FieldName = 'USUCODIGO'
      Origin = '"BDSISTEMA.FDB".USUARIOS_EMPRESAS.USUCODIGO'
    end
    object qFilhaEMPCODIGO: TIntegerField
      FieldName = 'EMPCODIGO'
      Origin = '"BDSISTEMA.FDB".USUARIOS_EMPRESAS.EMPCODIGO'
    end
  end
end
